Private Sub add_Click()

Dim t2, addres As String

addres = Text2.Text

Open (addres) For Append As #2

t2 = Text1

Write #2, t2

Close #2

End Sub

Private Sub back_Click()

CommonDialog1.ShowColor

Text1.BackColor = CommonDialog1.Color

End Sub

Private Sub close_Click()

End

End Sub

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text2 = CommonDialog1.FileName

End Sub

Private Sub fontcolor_Click()

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.Color

End Sub

Private Sub gfdchjvb_Click()

Dim t1, addres As String

addres = Text2.Text

Text1 = ""

Open (addres) For Input As #1

Do While Not EOF(1)

Line Input #1, t1

Text1 = Text1 & t1

Loop

Close #1

End Sub

Private Sub new_Click()

Text1 = ""

Text2 = ""

End Sub

Private Sub save_Click()

Dim t3, addres As String

addres = Text2.Text

Open (addres) For Output As #3

t3 = Text1

Write #3, t3

Close #3

End Sub

برای گرفتن برنامه در قالب ویژوال

روی آدرس زیر کلیک کنید

www.uploadefile.com/file/2685/form1.frm.html

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: